home *** CD-ROM | disk | FTP | other *** search
/ Aminet 37 / Aminet 37 (2000)(Schatztruhe)[!][Jun 2000].iso / Aminet / dev / basic / PureBasic.lha / PureBasic_Demo / PureBasic / Examples / FullVersion_Sources / Clipboard.pb < prev    next >
Encoding:
Text File  |  2000-03-19  |  557 b   |  24 lines
  1. ;
  2. ; *************************************
  3. ;
  4. ; Clipboard example file for Pure Basic
  5. ;
  6. ;    © 2000 - Fantaisie Software -
  7. ;
  8. ; *************************************
  9. ;
  10. ;
  11.  
  12. SetClipboardText("Hello world - Amiga is Back")    ; Fill the clipboard with our text
  13.  
  14. a$ = GetClipboardText()                            ; Get the Clipboard content
  15.  
  16. PrintN("Clipboard content: "+a$)                   ; Display the content. Is it working ?
  17. PrintN("Test it by just press 'Right Amiga + V'")  ; Check yourself
  18.  
  19. PrintN("") : PrintN("Mouse button to quit.")
  20.  
  21. MouseWait()
  22.  
  23. End
  24.